.PORTION !NONAME ;
.FILL; ADJUST; RETAIN; APART;
.PAGE FRAME 72 WIDE 65 HIGH;
.AREA TEXT LINE 4 TO 63;
.TITLE AREA HEADING LINES 1 TO 3
.TITLE AREA FOOTING LINE 65
.PLACE TEXT;
.AT NULL ⊂ IF FILLING THEN BREAK ELSE SKIP 1 ;; ⊃
.MACRO SINGLE SPACE ⊂ BREAK ; SPREAD ← 1 ; ⊃
.MACRO DOUBLE SPACE ⊂ BREAK ; SPREAD ← 2 ; ⊃
.MACRO TRIPLE SPACE ⊂ BREAK ; SPREAD ← 3 ; ⊃
.!HF ← FALSE; !EH ← !OH ← !EF ← !OF ← NULL
.MACRO EVERY HEADING(L,C,R) ⊂ !EH ← !OH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO EVERY FOOTING(L,C,R) ⊂ !EF ← !OF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO EVEN HEADING(L,C,R) ⊂ !EH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO ODD  HEADING(L,C,R) ⊂ !OH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO EVEN FOOTING(L,C,R) ⊂ !EF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO ODD  FOOTING(L,C,R) ⊂ !OF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.RECURSIVE MACRO STANDARD TITLES ⊂ IF !HF THEN BEGIN NOFILL TURN ON "←", "→", "{" INDENT 0,0
.	IF EVEN PAGE THEN
.		START
.		IF LENGTH(!EH) THEN START PLACE HEADING; !EH END ;
.		IF LENGTH(!EF) THEN START PLACE FOOTING; !EF END ;
.		END
.	ELSE	START
.		IF LENGTH(!OH) THEN START PLACE HEADING; !OH END ;
.		IF LENGTH(!OF) THEN START PLACE FOOTING; !OF END ;
.		END ;
.END ⊃
.BEFORE PAGE ⊂ IF !HF THEN STANDARD TITLES ;; ⊃
.MACRO TABBREAK ⊂ AT 8 ⊂ IF FILLING THEN BREAK ELSE "        " ⊃ ⊃
.MACRO TABSPACE ⊂ AT 8 ⊂⊃ ⊃
.NOFILL PREFACE 0
.FILL PREFACE 1
.RECURSIVE MACRO EVAL(εEXPRESSION) ⊂EXPRESSION⊃
.MACRO WHILE(CONDITION, ACTION) ⊂
.REPEAT $(IF CONDITION THEN START ACTION END ELSE DONE)$ ⊃
.MACRO UNTIL(CONDITION, ACTION) ⊂
.REPEAT$(ACTION ; IF CONDITION THEN DONE)$ ⊃
.MACRO DEBUG(εHERALD)  ⊂ IF DEBUGFLAG THEN
.	START "DEBUG"
.	IF "HERALD" NEQ NULL THEN TTY ← "HERALD" ;
.	PUB!DEBUG ;
.	END "DEBUG" ;
.)$
.MACRO BUGOFF ⊂ DEBUGFLAG ← 0 ; ⊃